home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / share / Dos / VARIOS / pascal / ENTRY.SWG / 0001_Numeric Input Routines.pas next >
Encoding:
Pascal/Delphi Source File  |  1996-02-21  |  643 b   |  34 lines
  1.  
  2. var i : word;
  3.  
  4. { Simple error checking }
  5. function Getnbr1 (msg:string) : word;
  6.   var w : word;
  7.   begin
  8.     repeat
  9.       write(msg);
  10.       {$I-} readln(w); {$I+}
  11.     until ioresult=0;
  12.     Getnbr1 := w;
  13.   end;
  14.  
  15. { fancier error checking }
  16. function Getnbr2 (msg:string) : word;
  17.   var x : longint;
  18.       s : string;
  19.       w : word;
  20.       i : integer;
  21.   begin
  22.     repeat
  23.       write(msg);
  24.       readln(s);
  25.       val(s,x,i);
  26.     until (i=0) and (x>=0) and (x<=65535);
  27.     getnbr2 := x;
  28.   end;
  29.  
  30. begin
  31.   i := getnbr1('Please enter a number? '); writeln(i);
  32.   i := getnbr2('Please enter a number? '); writeln(i);
  33. end.
  34.